﻿Public Class FormFiltreTableCar
    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        If Me.TextBox1.Text.Length <> Me.TextBox2.Text.Length Then
            MsgBox("Les deux tables de caractères doivent avoir la même longueur!", MsgBoxStyle.Exclamation)
            Exit Sub
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim oTrans As New ClassTextOp
        oTrans.Operation = ClassTextOp.EnumTextOperation.RemplacerTableCar
        oTrans.Parametres(0) = Me.TextBox1.Text
        oTrans.Parametres(1) = Me.TextBox2.Text
        Me.RichTextBoxResult.Text = oTrans.Transformer(Me.RichTextBox1.Text)
        oTrans = Nothing
    End Sub


End Class